home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed50.d64 / french drill (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  248 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 29 "THEWORDMARKET.40" P8
  9. 35 IFUW=0THENSYSUU,15
  10. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  11. 45 GETUI$:IFUI$=""THEN45
  12. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
  13. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  14. 60 IFUR=ULTHEN45
  15. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  16. 70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
  17. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  18. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  19. 95 IFLEN(US$)=0THEN110
  20. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  21. 105 RETURN
  22. 110 IFUA=46THENRETURN
  23. 115 IFUA=32ANDUR<>0THENRETURN
  24. 120 IFUA>47ANDUA<58THENRETURN
  25. 125 IFUA>64ANDUA<91THENRETURN
  26. 130 IFUA<193ORUA>218THENUI$="":RETURN
  27. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  28. 140 RETURN
  29. 145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
  30. 150 UZ=1:UV%=PEEK(UT):GOTO300
  31. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14
  32. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
  33. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  34. 170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
  35. 175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
  36. 299 :
  37. 300 PRINT"[147]":POKEUT,UU%:POKEUY,11:POKEUX,11
  38. 305 PRINT"                M E N U"
  39. 310 PRINT"    --------------------------------"
  40. 315 PRINT"       1.   COMMENCEZ  FRENCH DRILL "
  41. 320 PRINT"       2.   GUIDE DE L'ELEVE"
  42. 325 PRINT"       3.   GUIDE DU PROFESSEUR"
  43. 330 PRINT"       4.   ABANDON"
  44. 335 PRINT"    --------------------------------":GOSUB790:GOSUB760
  45. 340 PRINT"       APPUIE SUR UNE TOUCHE (1-4) ";
  46. 345 UL=1:US$="1234"
  47. 347 GOSUB35:US$=""
  48. 350 ONVAL(UR$)GOSUB1000,400,500,2000
  49. 355 GOTO300
  50. 399 :
  51. 400 PRINT"[147]":POKEUT,UL%:POKEUY,11:POKEUX,11
  52. 405 PRINT"             [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  53. 415 [153]"OPEN (null)OUS EPROUVERONS TA CAPACITE POUR"
  54. 418 [153]" TRADUIRE DES MOTS ATNNGLAIS ORDINAIRE"
  55. 420 [153]" TRADUIRE DES MOTS ATNNGLAIS ORDINAIRE"
  56. 425 [153]" A ASCRANCAIS.  (null)E MOT ATNNGLAIS SE MONTERA"
  57. 430 [153]" SUR L'ECRAN.  (null)YPE 'LE' OU 'LA' ET LE"
  58. 435 [153]" MOT TRADIUE."
  59. 440 [153]" VAL(null)ATN(null)(null)(null)VAL:LENAT:  LE CHAT
  60. 445 GOSUB835
  61. 450 PRINT"[147][159] [193]PRES TROIS REPONSES INCORRECT, LA"
  62. 455 PRINT" REPONSE CORRECT SA MONTERA. "
  63. 460 PRINT" [206]OUS PRESENTERONS UN REVUE APRES "
  64. 465 PRINT" LE FIN DE L'EPREUVE POUR LES "
  65. 470 PRINT" QUESTIONS QUE TU AS MANQUE."
  66. 490 GOSUB835
  67. 495 RETURN
  68. 499 :
  69. 500 PRINT"[147]":POKEUT,UL%:POKEUY,11:POKEUX,11
  70. 502 PRINT"[159]    [193]U MEILLEUR DE NOTRE CONNAISSANCE"
  71. 503 PRINT" CE LOGICIEL RELEVE DU DOMAINE PUBLIC."
  72. 504 PRINT" [211]I CE N'EST PAS LE CAS, VEUILLE"
  73. 505 PRINT" COMMUNIQUE AVEC:"
  74. 506 PRINT"      [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197][211][211][160][205][193][195][200][201][206][197][211]"
  75. 507 PRINT"          3370 [208]HARMACY [193]VE.
  76. 508 [153]"          ATNGINCOURT, (null)NTARIO"
  77. 509 [153]"          LENANADA, (null)1(null) 2(null)4"
  78. 510 [153]"          (416) 499-4292"
  79. 511 [141]835
  80. 512 [153]"LOADOPEN   (null)OM DE PROGRAMME:  ASCRENCH STR$RILL "
  81. 513 [153]"        VALCRIT PAR  : PEEK. MID$. LEFT$AMILTON
  82. 514 PRINT"       [210]EVISE PAR  : [202]AN [211]AWCZAK
  83. 515 [153]"       (null)EVISE PAR  : (null)ANDRA PEEKLANKENFELDT
  84. 516 PRINT"       [210]EVISE PAR  : [194]ILL [195]UMBERLAND
  85. 517 [153]"                  POUR
  86. 519 PRINT"            LE [195]OMMODORE 64"
  87. 590 GOSUB835
  88. 595 RETURN
  89. 599 :
  90. 600 REM ** PROGRAM MOD INST **
  91. 610 PRINT" [212]HIS PROGRAM MAY BE MODIFIED BY"
  92. 615 PRINT" CHANGING THE DATA STATEMENTS ON LINES"
  93. 620 PRINT" 1780-1810.  [204]INES 1780-1790 CONTAIN"
  94. 625 PRINT" [197]NGLISH WORDS AND LINES 1800-1810"
  95. 630 PRINT" CONTAINS THE CORRECT [198]RENCH TRANSLA-    TION."
  96. 631 GOSUB835:GOSUB850
  97. 633 PRINT" [212]HE VARIABLE '[212]9' IN LINE 1750"
  98. 634 PRINT" CONTROLS THE NUMBER OF ERRORS THE"
  99. 636 PRINT" STUDENT MAY MAKE BEFORE THE CORRECT     ANSWER IS GIVEN."
  100. 699 REM ** TO USE 8032 LOAD CBM4032 **
  101. 700 REM <YES>
  102. 705 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  103. 710 POKE54296,15:POKE54277,42:POKE54278,250
  104. 715 POKE54276,23:POKE54273,23:POKE54272,191
  105. 720 FORTC=1TO200:NEXT:POKE54276,32:FORTC=1TO250:NEXT
  106. 725 POKE54296,0:RETURN
  107. 730 REM <NO>
  108. 735 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  109. 740 POKE54296,15:POKE54277,18:POKE54278,242
  110. 745 POKE54276,33:POKE54273,4:POKE54272,48
  111. 750 FORTC=1TO300:NEXT:POKE54276,32:FORTC=1TO400:NEXT
  112. 755 POKE54296,0:RETURN
  113. 760 REM <BLIP>
  114. 765 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  115. 770 POKE54296,6:POKE54277,42:POKE54278,250
  116. 775 POKE54276,23:POKE54273,23:POKE54272,191
  117. 780 FORTC=1TO30:NEXT:POKE54276,32:FORTC=1TO50:NEXT
  118. 785 POKE54296,0:RETURN
  119. 790 FORTB=1TO500:NEXT:RETURN
  120. 791 FORTB=1TO1000:NEXT:RETURN
  121. 792 FORTB=1TO2000:NEXT:RETURN
  122. 799 :
  123. 800 PRINT"[147]";:POKEUT,UU%:POKEUY,1:POKEUX,1
  124. 801 FORI=1TO38:PRINT" [146]";:NEXT
  125. 802 FORI=1TO22:PRINT"[157] [146]";:NEXT
  126. 803 FORI=1TO37:PRINT"[157][157] [146]";:NEXT
  127. 804 FORI=1TO22:PRINT"[145][157] [146]";:NEXT
  128. 805 PRINT"[169]  [146]
  129. 806 [153]" WAIT   WAITSTEP
  130. 807 PRINT" [146]  [163][223][146] O M M O D O R E
  131. 808 [153]"(null)  WAIT
  132. 809 PRINT"EDUCATIONAL
  133. 810 [153]"SOFTWARE
  134. 811 PRINT"1983":GOSUB791:GOSUB760
  135. 812 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]"UC$:UI=0
  136. 813 GETUI$:IFUI$<>" "THENUI=UI+1:IFUI<250THEN813
  137. 814 GOTO300
  138. 835 GOSUB791:GOSUB760
  139. 837 POKEUN,0:PRINTLEFT$(UD$,24);"[154] [194]ARRE D'ESPACEMENT POUR CONTINUER[146] [155]"
  140. 840 GETUI$:IFUI$<>" "THEN840
  141. 845 RETURN
  142. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  143. 855 PRINT" --------------------------------------"
  144. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,3);"                              "
  145. 865 UH=0:PRINT"":RETURN
  146. 899 :
  147. 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  148. 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  149. 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  150. 905 UD$="":UP$="                                      "
  151. 906 DIM Q$(20),A$(20)
  152. 909 RETURN
  153. 910 GOSUB900:PRINT"[147] "
  154. 920 GOSUB800:GOTO300
  155. 956 :
  156. 999 :
  157. 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0
  158. 1005 FORI=1TO10:FL(I)=0:NEXT
  159. 1020 PRINT"[147]":UP=0:UG$="[209]UESTION #"
  160. 1025 POKEUT,UL%
  161. 1030 FORW=1TO10:PRINT"[157]":NEXT
  162. 1060 REM   VOCABULARY DRILL WITH RANDOM
  163. 1070 REM   PRESENTATION OF DATA, REVIEW
  164. 1080 REM   OF ERRORS, & SCORE TOTALLED
  165. 1090 REM   CHANGE CONTENTS & LIMITS IN
  166. 1100 REM   DATA STATEMENTS 1780-1810
  167. 1110 REM    ERROR LIMITS SET (1750)
  168. 1130 READ T9:IF T9>4 THEN T9=4
  169. 1165 GOSUB850
  170. 1190 GOSUB 1830
  171. 1200 LET S=0
  172. 1210 LET K=0
  173. 1220 REM       RANDOM READING
  174. 1230 FOR M=1TO 10
  175. 1240 READ Q$(D%(M)):NEXT M
  176. 1250 FOR M=1 TO 10
  177. 1260 READ A$(D%(M)):NEXT M
  178. 1270 REM    CHECK ANSWER AND RESPOND
  179. 1280 FOR I=1 TO 10
  180. 1290 LET T=0
  181. 1293 PRINT" [212]RADUISEZ LES MOTS SUIVANTS: ":GOSUB760
  182. 1300 PRINT" "Q$(I)": ";
  183. 1310 UL=20:US$="":GOSUB35:B$(I)=UR$
  184. 1320 IF A$(I)<>B$(I)  THEN 1400
  185. 1330 IF T>1 THEN 1350
  186. 1340 LET S=S+(T9-T)
  187. 1350 PRINT"[158] [195]'EST CORRECT! [155]":GOSUB700
  188. 1380 GOTO 1535
  189. 1390 REM
  190. 1400 LET T=T+1
  191. 1410 IF T<T9 THEN 1480
  192. 1420 REM    NOTE ERRORS FOR REVIEW
  193. 1430 LET K=K+1
  194. 1440 LET Q$(K)=Q$(I)
  195. 1450 LET A$(K)=A$(I)
  196. 1460 LET C=K
  197. 1470 IFT>=T9THEN1500
  198. 1480 PRINT " [197]SSAYEZ DE NOUVEAU--":GOSUB730
  199. 1490 GOTO 1300
  200. 1500 GOSUB760:GOSUB760
  201. 1510 PRINT "[153] [214]OICI LA REPONSE CORRECT: ";A$(I);"[155]"
  202. 1535 GOSUB835:GOSUB850
  203. 1540 NEXT I
  204. 1550 IF K=0 GOTO 1720
  205. 1560 REM      REVIEW MISTAKES
  206. 1570 UP=0:UG$="[210]EVIEW #":GOSUB850
  207. 1610 FOR K=1 TO C
  208. 1612 PRINT " [204]A REVISION [146]"
  209. 1615 PRINT
  210. 1617 PRINT " [212]RADUISEZ ENCORE UNE FOIS":GOSUB760
  211. 1620 PRINT
  212. 1630 PRINT " "Q$(K)":                     [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  213. 1640 UL=20:US$="":GOSUB35:B$(K)=UR$
  214. 1650 IF A$(K)<>B$(K)THEN 1680
  215. 1670 PRINT "[158] [195][207][210][210][197][195][212]"           :GOSUB700:GOTO 1710
  216. 1680 PRINT
  217. 1690 PRINT " [214]OICI LA REPONSE CORRECT: "A$(K)"[145][145][145][145]":GOSUB760:GOSUB760
  218. 1700 GOTO 1620
  219. 1710 PRINT :GOSUB835:GOSUB850:NEXT K
  220. 1720 LET S1=S/(20): PRINT"[147]"
  221. 1730 PRINTTAB(9)"[214]OUS AVEZ GAGNE"INT(S1*100+.5)"[157]%":PRINTTAB(14)"[193]U REVOIR!"
  222. 1740 GOSUB835:GOTO2000
  223. 1750 DATA 3
  224. 1780 DATA STEAK,CHEESE,FISH,CAKE,ICE CREAM
  225. 1790 DATA CARROT,PEAR,PEACH,BREAD,COFFEE
  226. 1800 DATA LE BIFTECK,LE FROMAGE,LE POISSON,LE GATEAU,LA GLACE
  227. 1810 DATA LA CAROTTE,LA POIRE,LA PECHE,LE PAIN,LE CAFE
  228. 1820 GOSUB835:RETURN
  229. 1830 REM    RANDOM ORDER SELECTION
  230. 1850 X=RND(-TI)
  231. 1860 FOR M=1 TO 10
  232. 1870 C%=10*RND(1)+1
  233. 1880 IF FL(C%)<>0 GOTO 1870
  234. 1890 D%(M)=C%:FL(C%)=1
  235. 1900 NEXT M
  236. 1910 RETURN
  237. 2000 PRINT"[147][158] [217]OU HAVE A CHOICE:
  238. 2010 [153]" (null)RESS  (null) WAIT TO PLAY AGAIN
  239. 2020 PRINT" [208]RESS  [205] [146] TO RETURN TO DISK MENU
  240. 2030 [161]R$[139]R$[179][177]"P"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[175]R$[179][177]"(null)"[167]2030
  241. 2040 [139]R$[178]"P"[167] [138]
  242. 2045 [139]R$[178]"(null)"[167] [138]
  243. 2050 [153]"LOAD(null)ETURNING TO THE DISK MENU
  244. 2060 LOAD"MENU",8
  245. 2070 RUN
  246. 2080 END
  247. 3000 REM WHC 93:10:20
  248.